home *** CD-ROM | disk | FTP | other *** search
/ Comic-On 4 / comicon4.img / pc / data / menu.cxt / 00012_Field_Special ÇÐǩǼäOïîâþêŠÇÉãÅ[ÉvÇÝÇÈ óp.txt < prev    next >
Text File  |  1997-04-26  |  2KB  |  67 lines
  1. -- startMovie & idle
  2.  
  3. --
  4. global bookMarkList       -- ﾆ坦ﾆ蓄ﾆ鍛ﾆ誰窶堙姑置ﾆ鍛ﾆ誰ﾆ筑ﾂーﾆ誰窶廃ﾆ稚ﾆ椎陳ーﾆ停ぎ窶敕板坂
  5. global nowIndxNum        -- ﾆ坦ﾆ蓄ﾆ鍛ﾆ誰窶堙固陳ｻﾂ催昶堙娯敕板坂
  6.  
  7. --1104
  8. global HonpenFrame
  9.  
  10. --
  11. -- 
  12. --
  13.  
  14. on startMovie
  15.   --
  16.   
  17.   
  18.   --set nowIndxNum = 0   -- 窶堙窶堙窶堙窶佚･ﾅｽ窶督（Comic窶堙窶堙坂啀ﾋﾃ按湘｣窶堙遺堙娯堙ﾂ、BookMark窶堙遺堙窶堙娯敖ｻ窶冉窶廃窶堙嫁ｽg窶堋､ﾂ）
  19.   
  20.   
  21.   -- 窶怒窶｢ﾃ停堙俄愿ｼ窶堙≫堋ｽ窶堙ｧﾂ、窶堋ｻ窶堙ｪ窶堋ｼ窶堙ｪ窶堙姑停ぎﾂーﾆ池ﾂー窶堙窶堙｢窶堙ｩ窶堙窶堙
  22.   initMovie()
  23.   curChange(#On)    -- initGlobalsOfCur 窶堙ﾂ、窶堙｢窶堙≫堙窶堙ｩ
  24.   
  25.   
  26.   puppetSound 0
  27.   --
  28.   
  29.   go to "Honpen"
  30.   -- menuSetOK()    -- ﾆ棚ﾂーﾆ致ﾆ男ﾆ停愴丹窶堙ｰ窶ｰﾃ溪堋ｬ窶堋ｽ窶堙ｧﾆ稚ﾆ椎陳ーﾆ停ぎ窶堙窶堙｢窶堙ｩ
  31.   
  32.   
  33.   
  34.   
  35.   set HonpenFrame = label("Honpen")
  36.   
  37.   
  38. end startMovie
  39. --
  40.  
  41. on idle
  42.   
  43.   idleAgoGo()  -- 窶堋ｱ窶堙≫堋ｿ窶堋ｪﾂ静｢窶佚篠静ｦ
  44.   --
  45.   idleOfMenu()
  46.   
  47.   -- 窶凖ｹﾂ青ｳglobal onIndxDirList      -- ﾃδｨﾂｱﾃ冷堙窶堋ｩﾂｶﾂｯﾃ甘溪堙窶堋ｩ窶堙姑断ﾂーﾆ耽窶堋ｪ窶愿ｼ窶堙≫堙窶堙ｩﾆ断ﾆ達ﾆ椎槌誰ﾆ暖ﾆ椎窶督ｼ
  48.   -- 窶凖ｹﾂ青ｳglobal onIndxNum          -- Index ﾆ段ﾆ停愴弛ﾂー
  49.   
  50.   -- 窶凖ｹﾂ青ｳglobal onItemDirList      -- Item ﾂｽﾃ催淞ｼﾂｬﾃ 窶堙｢ ﾂｹﾃ楪ｰﾃ 窶堙姑断ﾂーﾆ耽窶堋ｪ窶愿ｼ窶堙≫堙窶堙ｩﾆ断ﾆ達ﾆ椎槌誰ﾆ暖ﾆ椎窶督ｼ
  51.   -- 窶凖ｹﾂ青ｳglobal onItemNum          -- Item ﾆ段ﾆ停愴弛ﾂー
  52.   
  53.   
  54.   global mTypePath        -- ﾆ筑ﾆ歎ﾆ停愴耽ﾆ辰ﾆ致窶｢ﾃ看K窶窶ｹLﾂ坂   =  ":" or "\"
  55.   global dataPath         -- "DATA" ﾆ断ﾆ達ﾆ椎槌誰ﾆ暖ﾆ椎窶堙姑恥ﾆ湛
  56.   
  57.   
  58.   if (the frame > HonpenFrame) and (soundBusy(1) = 0) then
  59.     --sound playFile 1, dataPath & getAt(onIndxDirList, onIndxNum)  & mTypePath & "BGM"
  60.     -- 窶凖ｹﾂ青ｳgetAt(onIndxDirList, onIndxNum) 窶堙経nIndxNum窶堙坂唹窶堙俄堙遺堙ｩ窶ｰﾃや拿ﾂ青ｫ窶堋ｪ窶堋窶堙ｩ窶堙娯堙ﾂ、窶堋ｵ窶堋ｩ窶堙onIndxNum窶堋ｶ窶堙｡窶堙遺堋ｭ窶堙nItemNum窶堙窶堋窶堙ｩ
  61.     sound playFile 1, dataPath & "SP" & mTypePath & "BGM"
  62.     -- ﾆ稚ﾆ叩ﾆ辰ﾆ停ｹ窶督ｼ窶堙 "BGM" 窶堙窶堙遺堋ｯ窶堙ｪ窶堙寂堙遺堙ｧ窶堙遺堋｢
  63.   end if
  64.   
  65. end idle
  66. --
  67.